home *** CD-ROM | disk | FTP | other *** search
/ Graphics Plus / Graphics Plus.iso / general / hdf / unix / hdf3_2r2.lha / HDF3.2r2 / src / df24ff.f < prev    next >
Encoding:
Text File  |  1992-10-28  |  8.2 KB  |  237 lines
  1. C***************************************************************************
  2. C
  3. C
  4. C                         NCSA HDF version 3.2r2
  5. C                            October 30, 1992
  6. C
  7. C NCSA HDF Version 3.2 source code and documentation are in the public
  8. C domain.  Specifically, we give to the public domain all rights for future
  9. C licensing of the source code, all resale rights, and all publishing rights.
  10. C
  11. C We ask, but do not require, that the following message be included in all
  12. C derived works:
  13. C
  14. C Portions developed at the National Center for Supercomputing Applications at
  15. C the University of Illinois at Urbana-Champaign, in collaboration with the
  16. C Information Technology Institute of Singapore.
  17. C
  18. C THE UNIVERSITY OF ILLINOIS GIVES NO WARRANTY, EXPRESSED OR IMPLIED, FOR THE
  19. C SOFTWARE AND/OR DOCUMENTATION PROVIDED, INCLUDING, WITHOUT LIMITATION,
  20. C WARRANTY OF MERCHANTABILITY AND WARRANTY OF FITNESS FOR A PARTICULAR PURPOSE
  21. C
  22. C***************************************************************************
  23.  
  24. C
  25. C $Header: /hdf/hdf/v3.2r2/src/RCS/df24ff.f,v 1.1 1992/08/25 21:40:44 koziol beta koziol $
  26. C
  27. C $Log: df24ff.f,v $
  28. c Revision 1.1  1992/08/25  21:40:44  koziol
  29. c Initial revision
  30. c
  31. C
  32. C------------------------------------------------------------------------------
  33. C File:     df24Ff.f
  34. C Purpose:  read and write 24-bit raster images
  35. C Invokes:  df24F.c
  36. C Contents: 
  37. C   d2gdims: get dimensions of image
  38. C   d2gimg: read in image
  39. C   d2aimg: write out image
  40. C   d2rref: set reference number to be used for next get
  41. C   DF24getdims:  get dimensions of image
  42. C   DF24getimage: read in image
  43. C   DF24getimage: write out image
  44. C   DF24readref:  set reference number to be used for next get
  45. C
  46. C Remarks:  A RIG specifies attributes associated with an image - lookup table, 
  47. C           dimension, compression, color compensation etc.
  48. C----------------------------------------------------------------------------*/
  49.  
  50.  
  51.  
  52. C------------------------------------------------------------------------------
  53. C Name: d2gdims
  54. C Purpose:  get dimensions of next image RIG
  55. C Inputs:   name: name of HDF file
  56. C           xdim, ydim: locations for returning x,y dimensions
  57. C           il: location for returning interlace of image in file
  58. C Returns: 0 on success, -1 on failure with DFerror set
  59. C           *pxdim, *pydim, *pil set on success
  60. C Users:    HDF HLL (high-level library) users, utilities, other routines
  61. C Invokes: d2igdim
  62. C Remarks: none
  63. C----------------------------------------------------------------------------*/
  64.  
  65.       integer function d2gdims(name, xdim, ydim, il)
  66.       character*(*) name
  67.       integer xdim, ydim, il, d2igdim
  68.  
  69.       d2gdims = d2igdim(name, xdim, ydim, il, len(name))
  70.       return
  71.       end
  72.  
  73.  
  74. C------------------------------------------------------------------------------
  75. C Name: d2gimg
  76. C Purpose:  get image from next RIG
  77. C Inputs:   name: name of HDF file
  78. C           image: pointer to space to return image
  79. C           xdim, ydim: dimensions of space to return image
  80. C Returns: 0 on success, -1 on failure with DFerror set
  81. C Users:    HDF HLL (high-level library) users, utilities, other routines
  82. C Invokes: d2igimg
  83. C Remarks: space is assumed to be xdim * ydim * 3 bytes
  84. C----------------------------------------------------------------------------*/
  85.  
  86.       integer function d2gimg(name, image, xdim, ydim)
  87.       character*(*) name, image
  88.       integer xdim, ydim, d2igimg
  89.  
  90.       d2gimg = d2igimg(name, image, xdim, ydim, len(name))
  91.       return
  92.       end
  93.  
  94.  
  95. C------------------------------------------------------------------------------
  96. C Name: d2aimg
  97. C Purpose:  Write out image
  98. C Inputs:   filename: name of HDF file
  99. C           image: image to write
  100. C           xdim, ydim: dimensions of array image
  101. C Returns: 0 on success, -1 on failure with DFerror set
  102. C Users:    HDF HLL (high-level library) users, utilities, other routines
  103. C Invokes: d2iaimg
  104. C Remarks: array image is assumed to be xdim * ydim * ncomps bytes
  105. C----------------------------------------------------------------------------*/
  106.  
  107.       integer function d2aimg(name, image, xdim, ydim)
  108.       character*(*) name, image
  109.       integer xdim, ydim, d2iaimg
  110.  
  111.       d2aimg = d2iaimg(name, image, xdim, ydim, len(name), 0)
  112.       return
  113.       end
  114.  
  115.       integer function d2pimg(name, image, xdim, ydim)
  116.       character*(*) name, image
  117.       integer xdim, ydim, d2iaimg
  118.  
  119.       d2pimg = d2iaimg(name, image, xdim, ydim, len(name), 1)
  120.       return
  121.       end
  122.  
  123. C------------------------------------------------------------------------------
  124. C Name: d2rref
  125. C Purpose:  Write out image
  126. C Inputs:   filename: name of HDF file
  127. C           ref:      reference number to be used for next get
  128. C Returns: 0 on success, -1 on failure with DFerror set
  129. C Users:    HDF HLL (high-level library) users, utilities, other routines
  130. C Invokes: d2irref
  131. C Remarks: array image is assumed to be xdim * ydim * ncomps bytes
  132. C----------------------------------------------------------------------------*/
  133.  
  134.       integer function d2rref(name, ref)
  135.       character*(*) name
  136.       integer ref
  137.  
  138.       d2rref = d2irref(name, ref, len(name))
  139.       return
  140.       end
  141.  
  142.  
  143. CEND7MAX
  144.  
  145.  
  146. C------------------------------------------------------------------------------
  147. C Name: DF24getdims
  148. C Purpose:  get dimensions of next image RIG
  149. C Inputs:   name: name of HDF file
  150. C           xdim, ydim: locations for returning x,y dimensions
  151. C           il: location for returning interlace of image in file
  152. C Returns: 0 on success, -1 on failure with DFerror set
  153. C           *pxdim, *pydim, *pil set on success
  154. C Users:    HDF HLL (high-level library) users, utilities, other routines
  155. C Invokes: d2igdim
  156. C Remarks: none
  157. C----------------------------------------------------------------------------*/
  158.  
  159.       integer function DF24getdims(name, xdim, ydim, il)
  160.       character*(*) name
  161.       integer xdim, ydim, il, d2igdim
  162.  
  163.       DF24getdims = d2igdim(name, xdim, ydim, il, len(name))
  164.       return
  165.       end
  166.  
  167.  
  168. C------------------------------------------------------------------------------
  169. C Name: DF24getimage
  170. C Purpose:  get image from next RIG
  171. C Inputs:   name: name of HDF file
  172. C           image: pointer to space to return image
  173. C           xdim, ydim: dimensions of space to return image
  174. C Returns: 0 on success, -1 on failure with DFerror set
  175. C Users:    HDF HLL (high-level library) users, utilities, other routines
  176. C Invokes: d2igimg
  177. C Remarks: space is assumed to be xdim * ydim * 3 bytes
  178. C----------------------------------------------------------------------------*/
  179.  
  180.       integer function DF24getimage(name, image, xdim, ydim)
  181.       character*(*) name, image
  182.       integer xdim, ydim, d2igimg
  183.  
  184.       DF24getimage = d2igimg(name, image, xdim, ydim, len(name))
  185.       return
  186.       end
  187.  
  188.  
  189. C------------------------------------------------------------------------------
  190. C Name: DF24addimage
  191. C Purpose:  Write out image
  192. C Inputs:   filename: name of HDF file
  193. C           image: image to write
  194. C           xdim, ydim: dimensions of array image
  195. C Returns: 0 on success, -1 on failure with DFerror set
  196. C Users:    HDF HLL (high-level library) users, utilities, other routines
  197. C Invokes: d2iaimg
  198. C Remarks: array image is assumed to be xdim * ydim * ncomps bytes
  199. C----------------------------------------------------------------------------*/
  200.  
  201.       integer function DF24addimage(name, image, xdim, ydim)
  202.       character*(*) name, image
  203.       integer xdim, ydim, d2iaimg
  204.  
  205.       DF24addimage = d2iaimg(name, image, xdim, ydim, len(name), 0)
  206.       return
  207.       end
  208.  
  209.       integer function DF24putimage(name, image, xdim, ydim)
  210.       character*(*) name, image
  211.       integer xdim, ydim, d2iaimg
  212.  
  213.       DF24putimage = d2iaimg(name, image, xdim, ydim, len(name), 1)
  214.       return
  215.       end
  216.  
  217.  
  218. C------------------------------------------------------------------------------
  219. C Name: df24readref
  220. C Purpose:  Write out image
  221. C Inputs:   filename: name of HDF file
  222. C           ref:      reference number to be used for next get
  223. C Returns: 0 on success, -1 on failure with DFerror set
  224. C Users:    HDF HLL (high-level library) users, utilities, other routines
  225. C Invokes: d2irref
  226. C Remarks: array image is assumed to be xdim * ydim * ncomps bytes
  227. C----------------------------------------------------------------------------*/
  228.  
  229.       integer function df24readref(name, ref)
  230.       character*(*) name
  231.       integer ref
  232.  
  233.       df24readref = d2irref(name, ref, len(name))
  234.       return
  235.       end
  236.  
  237.